0 REM  *******************************
1 REM  **                           **
2 REM  **   - SOUND BIBLIOTHEK -    **
3 REM  **                           **
4 REM  **     WRITTEN 1991  BY      **
5 REM  **                           **
6 REM  **    MICHAEL RUETTINGER     **
7 REM  ***                         ***
8 REM  **** BITTE LESEN SIE AUCH  ****
9 REM  *** AM ENDE DIESES LISTINGS ***
10 REM **                           **
11 REM *******************************
12 PRINT"[147]":POKE775,167:POKE788,49:POKE808,237
20 POKE53281,0:POKE53280,0:POKE53272,23
30 PRINT"[147]       =>[158] [211][207][213][206][196] [194][201][194][204][201][207][212][200][197][203] <=":PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
31 PRINT"[155]WRITTEN 1991 BY [210][213][197][212][212][201][206][199][197][210] [208][210][207][196][213][195][212][201][207][206][211]"
32 PRINT"[159][211]OUND [194]IBLIOTHEK INSTALLIERT."
33 PRINT"[211]IE KOENNEN JETZT JEDEN BELIEBIGEN "
34 PRINT"[211]OUND, DEN [211]IE WUENSCHEN, AUFRUFEN."
36 PRINT"GOTO [158][216][216][216][145][145][145][144]":POKE631,5:POKE632,29:POKE633,29:POKE634,29:POKE635,29
37 POKE636,29:POKE198,6:END
50 S=54272:POKES+24,15
51 FORTT=0TO13:POKES+TT,0:NEXT:RETURN
70 FORJ=1TOM:NEXT:RETURN
89 REM
90 REM   ***************************
91 REM
92 REM   >>>  HIER GEHT'S LOS!  <<<
93 REM
94 REM   ***************************
98 REM
99 REM   *** PIEP ***
100 REM
101 GOSUB50:POKES+5,10:POKES+6,10:POKES+3,8:POKES,64:POKES+1,156:POKES+22,50
102 POKES+23,0:POKES+24,15:POKES+4,17:M=100:GOSUB70:POKES+4,100:END
107 REM
108 REM  *** OBOE ***
109 REM
110 GOSUB50:POKES+5,135:POKES+6,168:POKES+2,250:POKES,29:POKES+1,76:POKES+23,0:POKES+24,15
111 POKES+4,65:M=500:GOSUB70:POKES+4,64:END
117 REM
118 REM  *** FAGOTT ***
119 REM
120 GOSUB50:POKES+5,135:POKES+6,168:POKES+2,250:POKES,196:POKES+1,9:POKES+23,0:POKES+24,15
121 POKES+4,65:M=750:GOSUB70:POKES+4,64:END
125 REM
126 REM   *** VIBRATION ***
127 REM
130 GOSUB50:POKES+5,128:POKES+6,250:POKES,144:POKES+1,1:POKES+23,0:POKES+24,15
131 POKES+4,49:M=1000:GOSUB70:POKES+4,48:END
137 REM
138 REM  *** GITARRENSAITE ***
139 REM
140 GOSUB50:POKES+5,8:POKES+6,8:POKES,76:POKES+1,29:POKES+22,50:POKES+23,241:POKES+24,111
141 POKES+4,33:M=30:GOSUB70:POKES+4,32:END
147 REM
148 REM  *** AUFZUGKLINGEL ***
149 REM
150 GOSUB50:POKES+6,252:POKES+2,252:POKES+3,7:POKES,48:POKES+1,117:POKES+24,15
151 POKES+4,65:M=100:GOSUB70:POKES+4,64:END
157 REM
158 REM  *** STAHLFEDER ***
159 REM
160 GOSUB50:POKES+5,8:POKES+6,9:POKES,238:POKES+1,2:POKES+23,0:POKES+24,15
161 POKES+4,33:M=35:GOSUB70:POKES+4,32:END
167 REM
168 REM  *** WARNTON ***
169 REM
170 GOSUB50:POKES+6,250:POKES,52:POKES+1,8:POKES+23,0:POKES+24,15
171 POKES+4,81:M=2000:GOSUB70:POKES+4,80:END
177 REM
178 REM  *** SCHUSS 1 ***
179 REM
180 GOSUB50:POKES+5,8:POKES+6,10:POKES,16:POKES+1,39:POKES+23,0
181 POKES+24,15:POKES+4,129:M=50:GOSUB70:POKES+4,128:END
187 REM
188 REM  *** AUFSCHRAMMEN ***
189 REM
190 GOSUB50:POKES+6,240:POKES,100:POKES+23,0:POKES+24,15
191 POKES+4,129:M=2000:GOSUB70:POKES+4,128:END
197 REM
198 REM  *** DUESEN ***
200 GOSUB50:POKES+6,253:POKES,184:POKES+1,11:POKES+22,50:POKES+23,241:POKES+24,31
201 POKES+4,129:M=3000:GOSUB70:POKES+4,128:END
207 REM
208 REM  *** FLIEGENDE RAKETE ***
209 REM
210 GOSUB50:POKES+6,255:POKES,232:POKES+1,3:POKES+22,10:POKES+23,241:POKES+24,31
211 POKES+4,129:M=3000:GOSUB70:POKES+4,128:END
217 REM
218 REM  *** TELEFON ***
219 REM
220 A=0:D=10:SU=0:R=10:C=16:P=0:F=16000:G=1.33:N=2:M=24:GOTO50000
227 REM
228 REM  *** LASERKANONE ***
229 REM
230 A=0:D=0:SU=15:R=0:C=64:P=1000:F=30000:G=.85:N=10:M=3:GOTO50000
237 REM
238 REM  *** RAUMSCHIFFSTART ***
239 REM
240 A=0:D=0:SU=15:R=15:C=128:F=500:P=0:G=1.004:N=1000:M=1:GOTO50000
247 REM
248 REM  *** TURBINEN ***
249 REM
250 A=0:D=0:SU=15:R=15:C=32:P=2044:F=20000:G=1.001:N=460:M=1:GOTO50000
257 REM
258 REM  *** FLUGABWEHR ***
259 REM
260 A=0:D=5:SU=2:R=9:C=128:P=0:F=20000:G=1:N=2:M=30:GOTO50000
267 REM
268 REM  *** MG / HELIKOPTER ***
269 REM
270 A=0:D=5:SU=2:R=9:C=128:P=0:F=12000:G=.7:N=3:M=30:GOTO50000
277 REM
278 REM  *** VOEGEL ***
279 REM
280 A=0:D=8:SU=0:R=8:C=16:P=.:F=40000:G=500:N=8:M=10:A3=.:D3=8:S3=.:R3=.:C3=.
281 P3=.:F3=.:Q=28:GOTO51000
287 REM
288 REM  *** ETW. HINLEGEN ***
289 REM
290 A=.:D=7:SU=.:R=7:C=16:P=.:F=4000:G=1000:N=4:M=1:A3=.:D3=8:S3=.:R3=0
291 C3=.:P3=.:F3=.:Q=28:GOTO51000
297 REM
298 REM  *** NEGATIV - TON ***
300 A=.:D=8:SU=.:R=9:C=32:P=.:F=750:G=1000:N=7:M=1:A3=.:D3=10:S3=.:R3=.
301 C3=.:F3=.:P3=.:Q=28:GOTO51000
307 REM
308 REM  *** RAUMSCHIFFKANONE ***
309 REM
310 A=.:D=9.:SU=.:R=11:C=128:P=.:F=5000:G=200:N=20:M=15:A3=.:D3=9:S3=.:R3=.
311 C3=.:P3=.:F3=.:Q=28:GOTO51000
317 REM
318 REM  *** MARTINSHORN ***
319 REM
320 A=.:D=.:SU=15:R=8:C=64:P=1000:F=7000:G=720:N=300:M=1:A3=.:D3=.:S3=.
321 R3=.:C3=64:P3=2048:F3=15:Q=27:GOTO51000
327 REM
328 REM  *** MEERESBRANDUNG ***
330 A=10:D=13:SU=.:R=.:C=128:P=2048:F=32000:G=400:N=300:M=1:A3=.:D3=.:
331 S3=.:R3=.:C3=16:P3=.:F3=30:Q=27:GOTO51000
337 REM
338 REM  *** SPIELAUTOMAT ***
339 REM
340 A=.:D=.:SU=15:R=.:C=64:P=2048:F=10000:G=200:N=400:M=1:A3=.:D3=.:S3=.:R3=.
341 C3=128:P3=.:F3=20:Q=27:GOTO51000
347 REM
348 REM  *** LASERSCANNER ***
349 REM
350 A=9:D=10:SU=.:R=.:C=32:P=.:F=50000:G=2000:N=40:M=10:A3=.:D3=.:S3=.:R3=.
351 C3=128:P3=.:F3=.:Q=27:GOTO51000
357 REM
358 REM  *** DAMPF ABLASSEN ***
359 REM
360 GOSUB50:POKES+6,252:POKES+2,252:POKES+3,7:POKES,48:POKES+1,117:POKES+24,15
361 POKES+4,129:M=100:GOSUB70:POKES+4,128:END
367 REM
368 REM  *** ZERSTOERUNG ***
369 REM
370 GOSUB50:POKES+6,12:POKES+1,3:POKES+4,129:POKES+4,128:END
377 REM
378 REM  *** SCHUSS 2 ***
379 REM
380 GOSUB50:POKES+6,9:POKES+1,39:POKES+4,129:POKES+4,128:END
387 REM
388 REM  *** ABSCHWELLENDE WELLEN ***
389 REM
390 GOSUB50:POKES+13,9:POKES+11,17:POKES+11,16:FORTT=100TO60STEP-10
391 FORT=TTTOTT-60STEP-3:POKES+8,T:NEXT:NEXT:END
397 REM
398 REM  *** ANKLICKEN ***
399 REM
400 GOSUB50:POKES+13,8:POKES+11,17:POKES+11,16:FORT=150TO0STEP-3:POKES+8,T:NEXT:END
407 REM
408 REM  *** HELLER ZUPFTON ***
409 REM
410 GOSUB50:POKES+6,8:POKES+1,32:POKES+4,33:POKES+4,32:END
417 REM
418 REM  *** DUNKLER ZUPFTON ***
419 REM
420 GOSUB50:POKES+6,8:POKES+1,15:POKES+4,33:POKES+4,32:END
427 REM
428 REM  *** BRUMMTON ***
429 REM
430 GOSUB50:POKES+6,10:POKES+13,10:POKES+1,11:POKES+8,3:POKES+4,21:POKES+11,33
431 POKES+4,20:POKES+11,32:END
437 REM
438 REM  *** FUTUR. RAKETENSTART ***
439 REM
440 GOSUB50:POKES+13,10:POKES+11,129:POKES+11,128:FORT=1TO99STEP.4:POKES+8,T:NEXT:END
447 REM
448 REM  *** SPIRALE ***
449 REM
450 GOSUB50:POKES+6,10:POKES+4,33:POKES+4,32:FORT=60TO0STEP-1:POKES+1,60+T:POKES+1,60-T
451 NEXT:POKES+1,0:END
457 REM
458 REM  *** ZAHNARZTBOHRER ***
459 REM
460 GOSUB50:POKES+6,10:POKES+4,33:POKES+4,32:FORT=0TO60:POKES+1,60+T:POKES+1,60-T:NEXT:END
467 REM
468 REM  *** MOTOR (EINSCHALTEN) ***
469 REM
470 GOSUB50:POKES+12,0:POKES+13,250:POKES+8,2:POKES+11,33:END
472 FORT=0TO6:POKES+T,0:NEXT:POKES+6,92:POKES+1,4:POKES+4,33:POKES+4,32:END
474 GOSUB50:END
477 REM
478 REM  *** PUPPENSTIMME ***
479 REM
480 GOSUB50:POKES+24,15:POKES+3,15:POKES+2,15:POKES+5,0:POKES+6,240:POKES+4,65
481 FORI=250TO0STEP-2:POKES+1,40:POKES,I:NEXT:FORI=150TO0STEP-4:POKES+1,40:POKES,I:NEXT
482 POKES+4,0:END
487 REM
488 REM  *** PROPELLER (EIN) ***
489 REM
490 GOSUB50:RESTORE:FORI=0TO24:READA:POKES+I,A:NEXT:POKES+4,65:POKES+11,65:POKES+18,65:END
492 GOSUB50:POKES+24,0:END
497 REM
498 REM  *** BILDSCHRIMRAUSCHEN ***
499 REM
500 GOSUB50:RESTORE:READA:FORI=1TO24:READA:POKES+I,A:NEXT:POKES+4,0:POKES+65,77:POKES+18,65:END
502 GOSUB50:POKES+24,0:END
507 REM
508 REM  *** EXPLOSION ***
509 REM
510 S=54272:FORI=1TO24:POKES+I,0:NEXT
511 GOSUB50:POKES+24,2:POKES+6,255:POKES+4,129:POKES+13,255:POKES+11,129:POKES+1,0:POKES+5,0
512 POKES+24,15:POKES+1,1:POKES+5,11:POKES+6,0:M=150:GOSUB70:POKES+12,9:POKES+13,0
513 POKES+19,10:POKES+18,129:END
517 REM
518 REM  *** EXPLOSION UND HALL ***
519 REM
520 S=54272:FORI=1TO24:POKES+I,0:NEXT
521 POKES+24,2:POKES+6,255:POKES+4,129:POKES+13,255:POKES+11,129:POKES+1,0:POKES+5,0
522 POKES+24,15:POKES+1,1:POKES+5,11:POKES+6,0:M=150:GOSUB70:POKES+12,9:POKES+13,0:POKES+19,10
523 POKES+18,129:M=80:GOSUB70:A=30:FORI=1TO16:M=40:GOSUB70:POKES+15,5:POKES+8,A
524 M=80:GOSUB70:POKES+15,3:POKES+8,A+20:A=A-1:NEXTI:POKES+4,0:POKES+11,0:POKES+18,0
525 M=300:GOSUB70:END
527 REM
528 REM  *** LANGSAMES MG ***
529 REM
530 S=54272:FORI=1TO24:POKES+I,0:NEXT:POKES+24,15
531 POKES+6,240:POKES,130:POKES+5,110:POKES+23,240:POKES+4,33:END
532 GOSUB50:POKES+24,0:END
537 REM
538 REM  *** TRIEBWERKE WARMLAUFEN ***
539 REM
540 S=54272:FORI=1TO23:POKES+I,0:NEXT:POKES+24,15
541 POKES+6,240:POKES,180:POKES+5,8:POKES+23,240:POKES+4,129:END
542 GOSUB50:POKES+24,0:END
546 M=80:GOSUB70:POKES+15,3:POKES+8,A+20:A=A-1:NEXTI:POKES+4,0:POKES+11,0:POKES+18,0
547 REM
548 REM  *** FLUGZEUG - MG ***
549 REM
550 S=54272:FORI=0TO23:POKES+I,0:NEXT:POKES+24,15
551 POKES+6,180:POKES,180:POKES+5,8:POKES+23,240:POKES+4,33:END
552 GOSUB50:POKES+24,0:END
557 REM
558 REM  *** FLIPPER ***
559 REM
560 GOSUB50:POKES+24,15:POKES+6,240:POKES+23,240:FORI=65535TO4000STEP-3000
561 POKES+1,I/256:POKES,I-256*INT(I/256):POKES+4,33:NEXT:POKES+4,0:POKES+11,0:END
567 REM
568 REM  *** TROETE 1 ***
569 REM
570 S=54272:FORI=0TO24:POKES+I,0:NEXT:FORI=1TO3:POKES+24,15:POKES+6,240:POKES,98
571 POKES+1,10:POKES+4,33:M=250:GOSUB70:POKES+4,0:NEXT:POKES+4,0:END
577 REM
578 REM  *** TROETE 2 ***
579 REM
580 GOSUB50:FORI=1TO3:POKES+24,10:POKES+6,240:POKES,27:POKES+1,4:POKES+4,33:M=370:GOSUB70
581 POKES+4,0:NEXT:POKES+4,0:END
587 REM
588 REM  *** FALLENDES OBJEKT 1 ***
589 REM
590 GOSUB50:POKES+24,15:POKES+6,240:FORI=80TO10STEP-1:POKES+1,I:POKES+4,17
591 M=10:GOSUB70:NEXT:POKES+24,0:END
597 REM
598 REM  *** FALLENDES OBJEKT 2 ***
599 REM
600 GOSUB50:M=15:FORI=60TO48STEP-2:POKES+24,M:POKES+6,240:POKES+1,I:POKES+4,17
601 FORJ=1TO100:NEXT:M=M-1:NEXT:POKES+24,0:END
607 REM
608 REM  *** ALARMANLEGE ***
609 REM
610 GOSUB50:FORI=1TO5:L=10:FORJ=70TO100STEP2:POKES+24,L:POKES+6,240:POKES+1,J
611 POKES+4,33:IFL<15THENL=L+1
612 NEXT:NEXT:POKES+24,0:END
617 REM
618 REM  *** ALARM ***
619 REM
620 S=54272:U=0
621 FORI=1TO24:POKES+I,0:NEXT:POKES+7,9:POKES+10,3:POKES+13,240:POKES+22,30:POKES+23,243
622 POKES+24,31:POKES+11,65:POKES+1,140:POKES+2,2:POKES+3,2:POKES+5,5:POKES+6,255:POKES+4,65
623 FORI=30TO120STEP6:POKES+1,I:NEXT:U=U+1:IFU>8THENPOKES+24,0:END
624 FORI=120TO20STEP-6:POKES+1,I:NEXT:GOTO623
627 REM
628 REM  *** IM U.F.O. ***
629 REM
630 S=54272:FORI=0TO24:POKES+I,0:NEXT:POKES+24,15:POKES+5,21:POKES+12,21:POKES+6,0
631 POKES+13,0:FORI=50TO10STEP-10:FORJ=255TO0STEP-10:POKES+4,0
632 POKES+11,0:POKES+1,1:POKES,J:POKES+7,2*I:POKES+8,J:POKES+4,17:POKES+11,33:NEXT:NEXT:END
637 REM
638 REM  *** DEMO 1 (590+520) ***
639 REM
640 GOSUB50:POKES+24,15:POKES+6,240:FORI=80TO10STEP-1:POKES+1,I:POKES+4,17
641 M=10:GOSUB70:NEXT:POKES+24,0
642 GOSUB50
643 POKES+24,2:POKES+6,255:POKES+4,129:POKES+13,255:POKES+11,129:POKES+1,0:POKES+5,0
644 POKES+24,15:POKES+1,1:POKES+5,11:POKES+6,0:M=150:GOSUB70:POKES+12,9:POKES+13,0:POKES+19,10
645 POKES+18,129:M=80:GOSUB70:A=30:FORI=1TO16:M=40:GOSUB70:POKES+15,5:POKES+8,A
647 M=300:GOSUB70:END:REM                   REM
648 REM  *** DEMO 2 (540+240) ***
649 REM
650 S=54272:FORI=1TO23:POKES+I,0:NEXT:POKES+24,15
651 POKES+6,240:POKES,180:POKES+5,8:POKES+23,240:POKES+4,129:M=3500:GOSUB70
652 A=0:D=0:SU=15:R=15:C=128:F=500:P=0:G=1.004:N=1000:M=1:GOTO50000
657 REM
658 REM  *** DEMO 3 (600+510) ***
659 REM
660 GOSUB50:M=15:FORI=60TO48STEP-2:POKES+24,M:POKES+6,240:POKES+1,I:POKES+4,17
661 FORJ=1TO100:NEXT:M=M-1:NEXT
662 FORI=1TO24:POKES+I,0:NEXT
663 GOSUB50:POKES+24,2:POKES+6,255:POKES+4,129:POKES+13,255:POKES+11,129:POKES+1,0:POKES+5,0
664 POKES+24,15:POKES+1,1:POKES+5,11:POKES+6,0:M=150:GOSUB70:POKES+12,9:POKES+13,0
665 POKES+19,10:POKES+18,129:END
49990 REM
49991 REM ***************************
49992 REM
49993 REM       SOUND ROUTINE 1
49994 REM
49995 REM ***************************
49996 REM
50000 GOSUB50:POKES+5,16*A+D:POKES+6,16*SU+R:POKES+2,PAND255:POKES+3,P/256
50002 POKES+23,0:POKES+24,15:FORI=1TOM:F1=F:POKES+4,COR1
50004 FORJ=1TON:POKES,F1AND255:POKES+1,F1/256:F1=F1*G:NEXT
50006 POKES+4,C:NEXT:END
50990 REM
50991 REM ***************************
50992 REM
50993 REM       SOUND ROUTINE 2
50994 REM
50995 REM ***************************
50996 REM
51000 GOSUB50:POKES+5,16*A+D:POKES+6,16*SU+R:POKES+2,PAND255:POKES+3,P/256
51002 POKES+23,0:POKES+24,143:POKES+15,F3/256:POKES+14,F3-256*PEEK(S+15)
51004 POKES+16,P3AND255:POKES+17,P3/256:POKES+19,16*A3+D3:POKES+20,16*S3+R3
51006 Q=Q+S:F=F/256:FORI=1TOM:POKES+4,COR1:POKES+18,C3OR1
51008 FORJ=1TON:POKES+1,F*(PEEK(Q)/G+1):NEXT
51010 POKES+4,C:POKES+18,C3:NEXT:END
51990 REM
51991 REM ***************************
51992 REM
51993 REM   S.I.D. BELEGUNGSTABELLE
51994 REM
51995 REM ***************************
51996 REM
52000 DATA9,2,,3,,,240,12,2,,4,,,192,16,2,,6,,,64,,30,243,31
53000 REM
53001 REM *****************************
53002 REM *                           *
53003 REM *   UNSER SOFTWAREANGEBOT   *
53004 REM *     KOENNEN SIE HIER      *
53005 REM *         ERFAHREN:         *
53006 REM *                           *
53007 REM *****************************
53008 REM *                           *
53009 REM *  RUETTINGER PRODUCTIONS   *
53010 REM *    MICHAEL RUETTINGER     *
53011 REM *    ZERZABELSHOFSTR.93     *
53012 REM *    8500  NUERNBERG 30     *
53013 REM *    TEL: 0911 / 408442     *
53014 REM *                           *
53015 REM *****************************
53016 REM *                           *
53017 REM *    KATALOG KOSTENLOS !    *
53018 REM *                           *
53019 REM *****************************